home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00288.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  757 b   |  29 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on enterFrame
  6.   global beginDate, firstMonthlyDay
  7.   repeat with i = 13 to 24
  8.     if rollOver(i) then
  9.       set dayNo to i - 13 + firstMonthlyDay
  10.       set reportDate to dayNo + beginDate - 1
  11.       put GetLongDate(reportDate) into field "reportDate"
  12.     end if
  13.   end repeat
  14.   repeat with i = 25 to 36
  15.     if rollOver(i) then
  16.       set dayNo to i - 25 + firstMonthlyDay
  17.       set reportDate to dayNo + beginDate - 1
  18.       put GetLongDate(reportDate) into field "reportDate"
  19.     end if
  20.   end repeat
  21.   repeat with i = 37 to 48
  22.     if rollOver(i) then
  23.       set dayNo to i - 37 + firstMonthlyDay
  24.       set reportDate to dayNo + beginDate - 1
  25.       put GetLongDate(reportDate) into field "reportDate"
  26.     end if
  27.   end repeat
  28. end
  29.